home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / strings.swg / 0086_FLIPPING A STRING.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-24  |  512 b   |  27 lines
  1. {
  2.   Thanks but I already wrote a string flipping function, I asked for a
  3.   BASM or Assembler function for optimized speed.
  4. }
  5.  
  6. function FlipStr(S:string):string; ASSEMBLER;
  7. ASM
  8.         les     di,@Result
  9.         mov     dx,ds
  10.         lds     si,S
  11.         xor     ax,ax
  12.         cld
  13.         lodsb
  14.         mov     [di],al
  15.         add     di,ax
  16.         mov     cx,ax
  17.         jcxz    @Done
  18. @@1:    cld
  19.         lodsb
  20.         std
  21.         stosb
  22.         loop    @@1
  23.         mov     ds,dx
  24. END;
  25.  
  26.  
  27.